/* rcsois1c.p - Release Management Customer Schedules                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.7 $                                                     */
/*                                                                      */
/* $Revision: 1.7 $      BY: Dan Herman    DATE: 07/16/01   ECO: *P006* */
/*V8:ConvertMode=NoConvert                                              */
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */
/*         THIS PROGRAM IS A BOLT-ON TO STANDARD PRODUCT MFG/PRO.           */
/* ANY CHANGES TO THIS PROGRAM MUST BE PLACED ON A SEPARATE ECO THAN        */
/* STANDARD PRODUCT CHANGES.  FAILURE TO DO THIS CAUSES THE BOLT-ON CODE TO */
/* BE COMBINED WITH STANDARD PRODUCT AND RESULTS IN PATCH DELIVERY FAILURES.*/
/*                                                                          */
/* -----  W A R N I N G  -----  W A R N I N G  -----  W A R N I N G  -----  */
/*                                                                          */

/* -------------------------------------------------------------------------
Purpose:      Create the self billing records for additional
               sales order line charges.

Exceptions:    None
Conditions:
Pre:           Container and Line Charges must be enabled.
Post:
Notes:
History:

Inputs:
pAbsId          (character)
pShipFrom       (character)
pOrder          (character)
pOrderLine      (integer)
pAbsRecid       (recid)

Outputs:

----------------------------------------------------------------------------*/

{mfdeclre.i}

define input parameter pAbsId as character no-undo.
define input parameter pShipFrom as character no-undo.
define input parameter pOrder as character no-undo.
define input parameter pOrderLine as integer no-undo.
define input parameter pAbsRecid as recid no-undo.

define variable return_status as integer no-undo.

for each absl_det
   fields(absl_abs_id absl_abs_shipfrom absl_order absl_ord_line
          absl_ext_price absl_confirmed absl_trl_code)
   no-lock where
   absl_abs_id = pAbsId and
   absl_abs_shipfrom = pShipFrom and
   absl_order = pOrder and
   absl_ord_line = pOrderLine:

   {gprun.i ""arsixcr5.p""
      "(input pAbsRecid,
        input absl_trl_code,
        input pOrder,
        input pOrderLine,
        input absl_ext_price,
        input absl_confirmed,
        output return_status)"}
end.
